home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / nrpas13.zip / ROFUNC.DEM < prev    next >
Text File  |  1991-04-29  |  800b  |  40 lines
  1. PROGRAM d14r12(input,output);
  2. (* driver for routine ROFUNC *)
  3. CONST
  4.    spread=0.05;
  5.    ndata=100;
  6. TYPE
  7.    glsarray = ARRAY [1..ndata] OF real;
  8. VAR
  9.    glinext,glinextp : integer;
  10.    glma : ARRAY [1..55] OF real;
  11.    gliset : integer;
  12.    glgset : real;
  13.    aa,abdevt,b,rf : real;
  14.    i,idum,npt : integer;
  15.    arr,x,y : glsarray;
  16.  
  17. (*$I MODFILE.PAS *)
  18. (*$I RAN3.PAS *)
  19.  
  20. (*$I GASDEV.PAS *)
  21.  
  22. (*$I SORT.PAS *)
  23.  
  24. (*$I ROFUNC.PAS *)
  25.  
  26. BEGIN
  27.    gliset := 0;
  28.    idum := -11;
  29.    FOR i := 1 to ndata DO BEGIN
  30.       x[i] := 0.1*i;
  31.       y[i] := -2.0*x[i]+1.0+spread*gasdev(idum)
  32.    END;
  33.    writeln('b':9,'a':9,'ROFUNC':12,'ABDEVT':10);
  34.    FOR i := -5 to 5 DO BEGIN
  35.       b := -2.0+0.02*i;
  36.       rf := rofunc(b);
  37.       writeln(b:10:2,aa:9:2,rofunc(b):11:2,abdevt:10:2)
  38.    END
  39. END.
  40.